Excel
Otázka od: Bronislav Klucka
27. 11. 2003 17:28
Zdar, mam toto:
/************************/
Uses ComObj,Excel2000;
procedure TExportForm.SpeedButton2Click(Sender: TObject);
var i,j:integer;
CList:TCommoditiesList;
Comm:TCommodity;
Data:TStringList;
ExcelApp:Variant;
col:integer;
tmpstr:string;
begin
Screen.Cursor:=crHourGlass;
CList:=TCommoditiesList.Create;
Data:=TStringList.Create;
ExcelApp:=CreateOLEObject('Excel.Application');
try
try
Data.Sorted:=true;
Data.CaseSensitive:=false;
Data.AddObject(Comm.Name,Comm);
ExcelApp.WorkBooks.Add[xlWorksheet];
ExcelApp.WorkBooks.Add;
ExcelApp.WorkBooks[1].Worksheets[1].Name:='Export dat z programu
Salon';
for j:=0 to Data.Count-1 do
begin
i:=j+2;
col:=1;
Comm:=TCommodity(Data.Objects[j]);
if Columns.Checked[0] then
begin
if j=0 then
ExcelApp.WorkBooks[1].Worksheets[1].Cells[1,col]:='PLU';
ExcelApp.WorkBooks[1].Worksheets[1].Cells[i,col]:=''''+Comm.PLU;
inc(col);
end;
.
.
.
end;
ExcelApp.WorkBooks[1].SaveAs('data.xls');
MyMessageDlg('Export je ukoncen!',mmtInformation,[mmbOK]);
except
MyMessageDlg('Export se nezdaril!',mmtError,[mmbOK]);
end;
finally
ExcelApp.Quit;
Data.Free;
CList.Free;
Screen.Cursor:=crDefault;
end;
end;
end;
/************************/
Pro praci to vyzaduje nainstalovane VBA, procpak????
Brona
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Ludek Paral
27. 11. 2003 22:47
To je jednoduche, jelikoz volas v podstate scripty VB.... 
, delas to same,
co makro...
Ludek
--------------------
Pro praci to vyzaduje nainstalovane VBA, procpak????
Brona
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Bronislav Klucka
28. 11. 2003 17:10
da se to udelat teda jinak?
Brona
> -----Original Message-----
> From: delphi-l-owner@clexpert.cz
> [mailto:delphi-l-owner@clexpert.cz]On Behalf Of Ludek Paral
> Sent: Thursday, November 27, 2003 10:31 PM
> To: delphi-l@clexpert.cz
> Subject: Re: Excel
>
>
> To je jednoduche, jelikoz volas v podstate scripty VB.... ,
> delas to same,
> co makro...
>
>
> Ludek
> --------------------
>> Pro praci to vyzaduje nainstalovane VBA, procpak????
>
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Karel Kral
28. 11. 2003 17:28
To je teda pekny nesmysl, ne? Vyzaduje to nainstalovane COM serverr
Excel ale VBA? To nema se scripty nic spolecneho.
Ludek Paral wrote:
>
> To je jednoduche, jelikoz volas v podstate scripty VB.... , delas to same,
> co makro...
>
> Ludek
> --------------------
> Pro praci to vyzaduje nainstalovane VBA, procpak????
>
> Brona
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral@purus.cz, WWW: http://www.purus.cz
______________________________________________________
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Bronislav Klucka
28. 11. 2003 19:07
co ja vim : 
proto se ptam, proc to chce VBA :)
A jak se instaluje COM server nekomu, kdo ma Excel??
> -----Original Message-----
> From: delphi-l-owner@clexpert.cz
> [mailto:delphi-l-owner@clexpert.cz]On Behalf Of Karel Kral
> Sent: Friday, November 28, 2003 5:27 PM
> To: delphi-l@clexpert.cz
> Subject: Re: Excel
>
>
> To je teda pekny nesmysl, ne? Vyzaduje to nainstalovane COM serverr
> Excel ale VBA? To nema se scripty nic spolecneho.
>
> Ludek Paral wrote:
> >
> > To je jednoduche, jelikoz volas v podstate scripty VB.... ,
> delas to same,
> > co makro...
> >
> > Ludek
> > --------------------
> > Pro praci to vyzaduje nainstalovane VBA, procpak????
> >
> > Brona
>
> --
> ______________________________________________________
> Karel Kral, vedouci odd. IT / IT manager
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 547 235 000, 602 552 432, Fax: 547 231 203
> E-Mail: mailto:kral@purus.cz, WWW: http://www.purus.cz
> ______________________________________________________
>
>
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Karel Kral
30. 11. 2003 19:34
COM server je prave ten execel.exe. Takze nic vic, pouze normalni
instalace Excelu.
Bronislav Klucka wrote:
>
> co ja vim : proto se ptam, proc to chce VBA :)
> A jak se instaluje COM server nekomu, kdo ma Excel??
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral@purus.cz, WWW: http://www.purus.cz
______________________________________________________
Odpovedá: Bronislav Klucka
30. 11. 2003 19:28
To zretelne zakaznik ma, jinak by mi nerikal, ze excel chce doinstalovavat
VBA : .
Brona
> -----Original Message-----
> From: delphi-l-owner@clexpert.cz
> [mailto:delphi-l-owner@clexpert.cz]On Behalf Of Karel Kral
> Sent: Sunday, November 30, 2003 7:10 PM
> To: delphi-l@clexpert.cz
> Subject: Re: Excel
>
>
> COM server je prave ten execel.exe. Takze nic vic, pouze normalni
> instalace Excelu.
>
> Bronislav Klucka wrote:
> >
> > co ja vim : proto se ptam, proc to chce VBA :)
> > A jak se instaluje COM server nekomu, kdo ma Excel??
>
> --
> ______________________________________________________
> Karel Kral, vedouci odd. IT / IT manager
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 547 235 000, 602 552 432, Fax: 547 231 203
> E-Mail: mailto:kral@purus.cz, WWW: http://www.purus.cz
> ______________________________________________________
>
>
>